BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / FaceProcMP.p next >
MacBinary | 1994-03-02 | 3.6 KB | [TEXT/MWPS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 2 15:01:43 1994, modified Wed Mar 2 15:01:43 1994, creator 'MWPS', type ASCII, 3193 bytes "FaceProcMP.p" , at 0xcf9 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MWPS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 46 61 63 65 50 72 | 6f 63 4d 50 2e 70 00 00 |..FacePr|ocMP.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 00 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 0c 79 00 | 00 01 7e a9 9a a1 27 a9 |......y.|..~...'.|
|00000060| 9a a1 27 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 42 00 00 00 |........|....B...|
|00000080| 7b 46 61 63 65 57 61 72 | 65 20 32 2e 32 20 49 6e |{FaceWar|e 2.2 In|
|00000090| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 20 26 20 44 |itializa|tion & D|
|000000a0| 69 73 70 61 74 63 68 69 | 6e 67 20 50 72 6f 63 65 |ispatchi|ng Proce|
|000000b0| 64 75 72 65 73 7d 0d 7b | a9 46 61 63 65 57 61 72 |dures}.{|.FaceWar|
|000000c0| 65 20 31 39 38 39 2d 39 | 34 2e 20 20 41 6c 6c 20 |e 1989-9|4.  All |
|000000d0| 52 69 67 68 74 73 20 52 | 65 73 65 72 76 65 64 2e |Rights R|eserved.|
|000000e0| 7d 0d 0d 75 6e 69 74 20 | 46 61 63 65 50 72 6f 63 |}..unit |FaceProc|
|000000f0| 4d 50 3b 0d 0d 69 6e 74 | 65 72 66 61 63 65 0d 0d |MP;..int|erface..|
|00000100| 09 75 73 65 73 0d 09 09 | 46 61 63 65 53 74 6f 72 |.uses...|FaceStor|
|00000110| 4d 50 2c 20 52 65 73 6f | 75 72 63 65 73 2c 20 54 |MP, Reso|urces, T|
|00000120| 6f 6f 6c 55 74 69 6c 73 | 2c 20 4f 53 45 76 65 6e |oolUtils|, OSEven|
|00000130| 74 73 2c 20 46 6f 6e 74 | 73 2c 20 57 69 6e 64 6f |ts, Font|s, Windo|
|00000140| 77 73 2c 20 4d 65 6e 75 | 73 2c 20 54 65 78 74 45 |ws, Menu|s, TextE|
|00000150| 64 69 74 2c 20 44 69 61 | 6c 6f 67 73 2c 20 4d 65 |dit, Dia|logs, Me|
|00000160| 6d 6f 72 79 3b 0d 09 74 | 79 70 65 0d 09 09 48 65 |mory;..t|ype...He|
|00000170| 61 64 52 65 63 20 3d 20 | 72 65 63 6f 72 64 0d 09 |adRec = |record..|
|00000180| 09 09 09 61 64 64 72 3a | 20 50 72 6f 63 50 74 72 |...addr:| ProcPtr|
|00000190| 3b 0d 09 09 09 09 62 61 | 73 65 49 44 3a 20 69 6e |;.....ba|seID: in|
|000001a0| 74 65 67 65 72 3b 0d 09 | 09 09 09 76 65 72 73 49 |teger;..|...versI|
|000001b0| 44 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |D: integ|er;.....|
|000001c0| 6d 65 73 73 61 67 65 3a | 20 69 6e 74 65 67 65 72 |message:| integer|
|000001d0| 3b 0d 09 09 09 09 72 65 | 73 49 44 3a 20 69 6e 74 |;.....re|sID: int|
|000001e0| 65 67 65 72 3b 0d 09 09 | 09 09 66 50 74 72 3a 20 |eger;...|..fPtr: |
|000001f0| 50 74 72 3b 0d 09 09 09 | 65 6e 64 3b 0d 09 09 48 |Ptr;....|end;...H|
|00000200| 65 61 64 50 74 72 20 3d | 20 5e 48 65 61 64 52 65 |eadPtr =| ^HeadRe|
|00000210| 63 3b 0d 09 76 61 72 0d | 09 09 66 52 65 63 3a 20 |c;..var.|..fRec: |
|00000220| 46 61 63 65 52 65 63 3b | 0d 0d 09 70 72 6f 63 65 |FaceRec;|...proce|
|00000230| 64 75 72 65 20 46 61 63 | 65 49 74 20 28 74 68 65 |dure Fac|eIt (the|
|00000240| 50 74 72 3a 20 75 6e 69 | 76 20 50 74 72 3b 0d 09 |Ptr: uni|v Ptr;..|
|00000250| 09 09 09 09 09 09 09 09 | 6d 31 2c 20 6d 32 2c 20 |........|m1, m2, |
|00000260| 6d 33 2c 20 6d 34 2c 20 | 6d 35 3a 20 6c 6f 6e 67 |m3, m4, |m5: long|
|00000270| 69 6e 74 29 3b 0d 0d 69 | 6d 70 6c 65 6d 65 6e 74 |int);..i|mplement|
|00000280| 61 74 69 6f 6e 0d 0d 09 | 70 72 6f 63 65 64 75 72 |ation...|procedur|
|00000290| 65 20 50 72 65 70 49 74 | 20 28 78 2c 20 62 2c 20 |e PrepIt| (x, b, |
|000002a0| 76 2c 20 72 2c 20 66 3a | 20 6c 6f 6e 67 69 6e 74 |v, r, f:| longint|
|000002b0| 29 3b 0d 09 09 76 61 72 | 0d 09 09 09 69 3a 20 69 |);...var|....i: i|
|000002c0| 6e 74 65 67 65 72 3b 0d | 09 62 65 67 69 6e 0d 09 |nteger;.|.begin..|
|000002d0| 09 77 69 74 68 20 48 65 | 61 64 50 74 72 28 78 29 |.with He|adPtr(x)|
|000002e0| 5e 20 64 6f 0d 09 09 09 | 62 65 67 69 6e 0d 09 09 |^ do....|begin...|
|000002f0| 09 09 61 64 64 72 20 3a | 3d 20 47 65 74 52 65 73 |..addr :|= GetRes|
|00000300| 6f 75 72 63 65 28 27 46 | 43 4d 44 27 2c 20 31 30 |ource('F|CMD', 10|
|00000310| 30 30 29 5e 3b 0d 09 09 | 09 09 62 61 73 65 49 44 |00)^;...|..baseID|
|00000320| 20 3a 3d 20 62 3b 0d 09 | 09 09 09 76 65 72 73 49 | := b;..|...versI|
|00000330| 44 20 3a 3d 20 76 3b 0d | 09 09 09 09 6d 65 73 73 |D := v;.|....mess|
|00000340| 61 67 65 20 3a 3d 20 30 | 3b 0d 09 09 09 09 72 65 |age := 0|;.....re|
|00000350| 73 49 44 20 3a 3d 20 72 | 3b 0d 09 09 09 09 66 50 |sID := r|;.....fP|
|00000360| 74 72 20 3a 3d 20 70 6f | 69 6e 74 65 72 28 66 29 |tr := po|inter(f)|
|00000370| 3b 0d 09 09 09 09 77 69 | 74 68 20 66 52 65 63 20 |;.....wi|th fRec |
|00000380| 64 6f 0d 09 09 09 09 09 | 69 66 20 28 78 45 6e 74 |do......|if (xEnt|
|00000390| 72 69 65 73 20 3e 20 30 | 29 20 74 68 65 6e 0d 09 |ries > 0|) then..|
|000003a0| 09 09 09 09 09 66 6f 72 | 20 69 20 3a 3d 20 30 20 |.....for| i := 0 |
|000003b0| 74 6f 20 78 45 6e 74 72 | 69 65 73 20 2d 20 31 20 |to xEntr|ies - 1 |
|000003c0| 64 6f 0d 09 09 09 09 09 | 09 09 69 66 20 28 62 61 |do......|..if (ba|
|000003d0| 73 65 49 44 20 3d 20 78 | 54 61 62 6c 65 5b 31 20 |seID = x|Table[1 |
|000003e0| 2b 20 69 20 2a 20 34 5d | 29 20 74 68 65 6e 0d 09 |+ i * 4]|) then..|
|000003f0| 09 09 09 09 09 09 09 69 | 66 20 28 76 65 72 73 49 |.......i|f (versI|
|00000400| 44 20 3d 20 78 54 61 62 | 6c 65 5b 32 20 2b 20 69 |D = xTab|le[2 + i|
|00000410| 20 2a 20 34 5d 29 20 74 | 68 65 6e 0d 09 09 09 09 | * 4]) t|hen.....|
|00000420| 09 09 09 09 09 69 66 20 | 28 78 54 61 62 6c 65 5b |.....if |(xTable[|
|00000430| 34 20 2b 20 69 20 2a 20 | 34 5d 20 3c 3e 20 30 29 |4 + i * |4] <> 0)|
|00000440| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 09 | then...|........|
|00000450| 61 64 64 72 20 3a 3d 20 | 50 72 6f 63 50 74 72 28 |addr := |ProcPtr(|
|00000460| 78 54 61 62 6c 65 5b 34 | 20 2b 20 69 20 2a 20 34 |xTable[4| + i * 4|
|00000470| 5d 29 3b 0d 09 09 09 65 | 6e 64 3b 0d 09 65 6e 64 |]);....e|nd;..end|
|00000480| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 4a 75 |;...proc|edure Ju|
|00000490| 6d 70 49 74 20 28 74 68 | 65 50 74 72 3a 20 50 74 |mpIt (th|ePtr: Pt|
|000004a0| 72 29 3b 0d 09 69 6e 6c | 69 6e 65 0d 09 09 24 32 |r);..inl|ine...$2|
|000004b0| 32 35 37 2c 20 24 32 30 | 35 31 2c 20 24 34 45 39 |257, $20|51, $4E9|
|000004c0| 30 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 46 |0;...pro|cedure F|
|000004d0| 61 63 65 49 74 3b 0d 09 | 09 76 61 72 0d 09 09 09 |aceIt;..|.var....|
|000004e0| 69 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 62 65 67 |i: integ|er;..beg|
|000004f0| 69 6e 0d 09 09 77 69 74 | 68 20 66 52 65 63 20 64 |in...wit|h fRec d|
|00000500| 6f 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 69 |o....beg|in.....i|
|00000510| 66 20 28 6d 31 20 3d 20 | 44 6f 49 6e 69 74 29 20 |f (m1 = |DoInit) |
|00000520| 74 68 65 6e 0d 09 09 09 | 09 09 62 65 67 69 6e 0d |then....|..begin.|
|00000530| 09 09 09 09 09 09 69 66 | 20 28 6d 34 20 3e 20 2d |......if| (m4 > -|
|00000540| 31 29 20 61 6e 64 20 6e | 6f 74 20 42 69 74 54 73 |1) and n|ot BitTs|
|00000550| 74 28 40 6d 34 2c 20 33 | 31 29 20 74 68 65 6e 0d |t(@m4, 3|1) then.|
|00000560| 09 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|00000570| 09 09 09 09 09 46 6c 75 | 73 68 45 76 65 6e 74 73 |.....Flu|shEvents|
|00000580| 28 36 32 2c 20 30 29 3b | 09 09 7b 69 67 6e 6f 72 |(62, 0);|..{ignor|
|00000590| 65 20 73 70 75 72 69 6f | 75 73 20 6d 6f 75 73 65 |e spurio|us mouse|
|000005a0| 20 61 6e 64 20 6b 65 79 | 20 65 76 65 6e 74 73 7d | and key| events}|
|000005b0| 0d 09 09 09 09 09 09 09 | 09 49 6e 69 74 47 72 61 |........|.InitGra|
|000005c0| 66 28 40 71 64 2e 74 68 | 65 50 6f 72 74 29 3b 09 |f(@qd.th|ePort);.|
|000005d0| 7b 70 65 72 66 6f 72 6d | 20 61 70 70 72 6f 70 72 |{perform| appropr|
|000005e0| 69 61 74 65 20 4d 61 63 | 20 69 6e 69 74 69 61 6c |iate Mac| initial|
|000005f0| 69 7a 61 74 69 6f 6e 73 | 7d 0d 09 09 09 09 09 09 |izations|}.......|
|00000600| 09 09 49 6e 69 74 46 6f | 6e 74 73 3b 0d 09 09 09 |..InitFo|nts;....|
|00000610| 09 09 09 09 09 49 6e 69 | 74 57 69 6e 64 6f 77 73 |.....Ini|tWindows|
|00000620| 3b 0d 09 09 09 09 09 09 | 09 09 49 6e 69 74 4d 65 |;.......|..InitMe|
|00000630| 6e 75 73 3b 0d 09 09 09 | 09 09 09 09 09 54 45 49 |nus;....|.....TEI|
|00000640| 6e 69 74 3b 0d 09 09 09 | 09 09 09 09 09 49 6e 69 |nit;....|.....Ini|
|00000650| 74 44 69 61 6c 6f 67 73 | 28 6e 69 6c 29 3b 0d 09 |tDialogs|(nil);..|
|00000660| 09 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 09 |......en|d;......|
|00000670| 09 69 66 20 28 47 65 74 | 52 65 73 6f 75 72 63 65 |.if (Get|Resource|
|00000680| 28 27 46 43 4d 44 27 2c | 20 31 30 30 30 29 20 3d |('FCMD',| 1000) =|
|00000690| 20 6e 69 6c 29 20 74 68 | 65 6e 09 7b 4c 6f 61 64 | nil) th|en.{Load|
|000006a0| 49 74 20 61 76 61 69 6c | 61 62 6c 65 3f 7d 0d 09 |It avail|able?}..|
|000006b0| 09 09 09 09 09 09 69 66 | 20 28 4f 70 65 6e 52 65 |......if| (OpenRe|
|000006c0| 73 46 69 6c 65 28 53 74 | 72 69 6e 67 50 74 72 28 |sFile(St|ringPtr(|
|000006d0| 53 74 72 69 70 41 64 64 | 72 65 73 73 28 40 75 4e |StripAdd|ress(@uN|
|000006e0| 61 6d 65 29 29 5e 29 20 | 3c 20 30 29 20 74 68 65 |ame))^) |< 0) the|
|000006f0| 6e 0d 09 09 09 09 09 09 | 09 09 45 78 69 74 54 6f |n.......|..ExitTo|
|00000700| 53 68 65 6c 6c 3b 09 09 | 09 09 09 09 09 09 09 09 |Shell;..|........|
|00000710| 7b 71 75 69 74 20 69 66 | 20 6e 6f 74 20 66 6f 75 |{quit if| not fou|
|00000720| 6e 64 7d 0d 09 09 09 09 | 09 09 66 46 6c 61 67 73 |nd}.....|..fFlags|
|00000730| 20 3a 3d 20 6d 32 3b 09 | 09 09 09 09 09 09 09 09 | := m2;.|........|
|00000740| 09 7b 73 74 6f 72 65 20 | 46 61 63 65 49 74 20 62 |.{store |FaceIt b|
|00000750| 69 74 20 66 6c 61 67 73 | 7d 0d 09 09 09 09 09 09 |it flags|}.......|
|00000760| 78 45 6e 74 72 69 65 73 | 20 3a 3d 20 6d 35 3b 09 |xEntries| := m5;.|
|00000770| 09 09 09 09 09 09 09 09 | 7b 73 74 6f 72 65 20 23 |........|{store #|
|00000780| 20 6f 66 20 74 61 62 6c | 65 20 65 6e 74 72 69 65 | of tabl|e entrie|
|00000790| 73 7d 0d 09 09 09 09 09 | 09 74 68 65 50 74 72 20 |s}......|.thePtr |
|000007a0| 3a 3d 20 40 66 52 65 63 | 3b 0d 09 09 09 09 09 09 |:= @fRec|;.......|
|000007b0| 69 66 20 28 6d 33 20 3e | 20 2d 31 29 20 74 68 65 |if (m3 >| -1) the|
|000007c0| 6e 09 09 09 09 09 09 09 | 09 09 7b 63 61 6c 6c 20 |n.......|..{call |
|000007d0| 4c 6f 61 64 49 74 20 74 | 6f 20 65 78 70 61 6e 64 |LoadIt t|o expand|
|000007e0| 20 68 65 61 70 3f 7d 0d | 09 09 09 09 09 09 09 62 | heap?}.|.......b|
|000007f0| 65 67 69 6e 0d 09 09 09 | 09 09 09 09 09 50 72 65 |egin....|.....Pre|
|00000800| 70 49 74 28 6f 72 64 28 | 74 68 65 50 74 72 29 2c |pIt(ord(|thePtr),|
|00000810| 20 6d 33 2c 20 30 2c 20 | 30 2c 20 6f 72 64 28 74 | m3, 0, |0, ord(t|
|00000820| 68 65 50 74 72 29 29 3b | 0d 09 09 09 09 09 09 09 |hePtr));|........|
|00000830| 09 4a 75 6d 70 49 74 28 | 74 68 65 50 74 72 29 3b |.JumpIt(|thePtr);|
|00000840| 0d 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00000850| 09 09 09 50 72 65 70 49 | 74 28 6f 72 64 28 74 68 |...PrepI|t(ord(th|
|00000860| 65 50 74 72 29 2c 20 31 | 31 30 30 2c 20 32 32 2c |ePtr), 1|100, 22,|
|00000870| 20 30 2c 20 6f 72 64 28 | 74 68 65 50 74 72 29 29 | 0, ord(|thePtr))|
|00000880| 3b 09 09 7b 73 65 74 75 | 70 20 66 52 65 63 20 68 |;..{setu|p fRec h|
|00000890| 65 61 64 65 72 7d 0d 09 | 09 09 09 09 09 50 72 65 |eader}..|.....Pre|
|000008a0| 70 49 74 28 6f 72 64 28 | 40 75 48 65 61 64 29 2c |pIt(ord(|@uHead),|
|000008b0| 20 31 32 31 30 2c 20 32 | 32 2c 20 30 2c 20 6f 72 | 1210, 2|2, 0, or|
|000008c0| 64 28 74 68 65 50 74 72 | 29 29 3b 09 7b 73 65 74 |d(thePtr|));.{set|
|000008d0| 75 70 20 75 52 65 63 20 | 68 65 61 64 65 72 7d 0d |up uRec |header}.|
|000008e0| 09 09 09 09 09 09 50 72 | 65 70 49 74 28 6f 72 64 |......Pr|epIt(ord|
|000008f0| 28 40 76 48 65 61 64 29 | 2c 20 31 32 30 30 2c 20 |(@vHead)|, 1200, |
|00000900| 32 32 2c 20 30 2c 20 6f | 72 64 28 74 68 65 50 74 |22, 0, o|rd(thePt|
|00000910| 72 29 29 3b 09 7b 73 65 | 74 75 70 20 76 52 65 63 |r));.{se|tup vRec|
|00000920| 20 68 65 61 64 65 72 7d | 0d 09 09 09 09 09 09 66 | header}|.......f|
|00000930| 48 65 61 64 5b 36 5d 20 | 3a 3d 20 6d 34 3b 09 09 |Head[6] |:= m4;..|
|00000940| 09 09 09 09 09 09 09 7b | 73 74 6f 72 65 20 65 6e |.......{|store en|
|00000950| 76 69 72 6f 6e 6d 65 6e | 74 20 74 79 70 65 7d 0d |vironmen|t type}.|
|00000960| 09 09 09 09 09 09 75 48 | 65 61 64 5b 36 5d 20 3a |......uH|ead[6] :|
|00000970| 3d 20 30 3b 09 09 09 09 | 09 09 09 09 09 09 7b 73 |= 0;....|......{s|
|00000980| 74 6f 72 65 20 73 74 72 | 69 6e 67 20 74 79 70 65 |tore str|ing type|
|00000990| 7d 0d 09 09 09 09 09 09 | 74 68 65 50 74 72 20 3a |}.......|thePtr :|
|000009a0| 3d 20 6e 69 6c 3b 0d 09 | 09 09 09 09 09 69 66 20 |= nil;..|.....if |
|000009b0| 28 6d 34 20 3c 20 2d 33 | 29 20 74 68 65 6e 0d 09 |(m4 < -3|) then..|
|000009c0| 09 09 09 09 09 09 65 78 | 69 74 28 46 61 63 65 49 |......ex|it(FaceI|
|000009d0| 74 29 3b 0d 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |t);.....|.end;...|
|000009e0| 09 09 69 66 20 28 6d 31 | 20 3d 20 44 6f 50 72 65 |..if (m1| = DoPre|
|000009f0| 70 29 20 74 68 65 6e 0d | 09 09 09 09 09 50 72 65 |p) then.|.....Pre|
|00000a00| 70 49 74 28 6d 32 2c 20 | 6d 33 2c 20 6d 34 2c 20 |pIt(m2, |m3, m4, |
|00000a10| 6d 35 2c 20 6f 72 64 28 | 40 66 52 65 63 29 29 0d |m5, ord(|@fRec)).|
|00000a20| 09 09 09 09 65 6c 73 65 | 20 69 66 20 28 6d 31 20 |....else| if (m1 |
|00000a30| 3c 20 30 29 20 61 6e 64 | 20 28 6d 31 20 3e 20 2d |< 0) and| (m1 > -|
|00000a40| 31 31 29 20 74 68 65 6e | 0d 09 09 09 09 09 62 65 |11) then|......be|
|00000a50| 67 69 6e 0d 09 09 09 09 | 09 09 69 20 3a 3d 20 28 |gin.....|..i := (|
|00000a60| 34 20 2a 20 28 2d 31 20 | 2d 20 6d 31 29 29 3b 0d |4 * (-1 |- m1));.|
|00000a70| 09 09 09 09 09 09 78 54 | 61 62 6c 65 5b 31 20 2b |......xT|able[1 +|
|00000a80| 20 69 5d 20 3a 3d 20 6d | 32 3b 0d 09 09 09 09 09 | i] := m|2;......|
|00000a90| 09 78 54 61 62 6c 65 5b | 32 20 2b 20 69 5d 20 3a |.xTable[|2 + i] :|
|00000aa0| 3d 20 6d 33 3b 0d 09 09 | 09 09 09 09 78 54 61 62 |= m3;...|....xTab|
|00000ab0| 6c 65 5b 33 20 2b 20 69 | 5d 20 3a 3d 20 6d 34 3b |le[3 + i|] := m4;|
|00000ac0| 0d 09 09 09 09 09 09 78 | 54 61 62 6c 65 5b 34 20 |.......x|Table[4 |
|00000ad0| 2b 20 69 5d 20 3a 3d 20 | 6d 35 3b 0d 09 09 09 09 |+ i] := |m5;.....|
|00000ae0| 09 65 6e 64 0d 09 09 09 | 09 65 6c 73 65 0d 09 09 |.end....|.else...|
|00000af0| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 69 |...begin|.......i|
|00000b00| 66 20 28 74 68 65 50 74 | 72 20 3d 20 6e 69 6c 29 |f (thePt|r = nil)|
|00000b10| 20 74 68 65 6e 09 09 7b | 63 61 6c 6c 20 74 6f 20 | then..{|call to |
|00000b20| 74 68 65 20 64 65 66 61 | 75 6c 74 20 6d 6f 64 75 |the defa|ult modu|
|00000b30| 6c 65 3f 7d 0d 09 09 09 | 09 09 09 09 74 68 65 50 |le?}....|....theP|
|00000b40| 74 72 20 3a 3d 20 40 75 | 48 65 61 64 0d 09 09 09 |tr := @u|Head....|
|00000b50| 09 09 09 65 6c 73 65 20 | 69 66 20 28 48 65 61 64 |...else |if (Head|
|00000b60| 50 74 72 28 74 68 65 50 | 74 72 29 5e 2e 66 50 74 |Ptr(theP|tr)^.fPt|
|00000b70| 72 20 3c 3e 20 40 66 52 | 65 63 29 20 74 68 65 6e |r <> @fR|ec) then|
|00000b80| 0d 09 09 09 09 09 09 09 | 62 65 67 69 6e 09 09 09 |........|begin...|
|00000b90| 09 09 09 09 7b 63 61 6c | 6c 20 74 6f 20 61 20 63 |....{cal|l to a c|
|00000ba0| 6f 6e 74 72 6f 6c 20 64 | 72 69 76 65 72 3f 7d 0d |ontrol d|river?}.|
|00000bb0| 09 09 09 09 09 09 09 09 | 63 43 6f 6e 74 72 6f 6c |........|cControl|
|00000bc0| 20 3a 3d 20 70 6f 69 6e | 74 65 72 28 74 68 65 50 | := poin|ter(theP|
|00000bd0| 74 72 29 3b 0d 09 09 09 | 09 09 09 09 09 74 68 65 |tr);....|.....the|
|00000be0| 50 74 72 20 3a 3d 20 40 | 76 48 65 61 64 3b 0d 09 |Ptr := @|vHead;..|
|00000bf0| 09 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 09 |......en|d;......|
|00000c00| 09 48 65 61 64 50 74 72 | 28 74 68 65 50 74 72 29 |.HeadPtr|(thePtr)|
|00000c10| 5e 2e 6d 65 73 73 61 67 | 65 20 3a 3d 20 30 3b 0d |^.messag|e := 0;.|
|00000c20| 09 09 09 09 09 09 75 43 | 6f 6d 6d 61 6e 64 20 3a |......uC|ommand :|
|00000c30| 3d 20 6d 31 3b 09 09 09 | 09 7b 70 61 73 73 20 43 |= m1;...|.{pass C|
|00000c40| 6f 6d 6d 61 6e 64 20 26 | 20 50 61 72 61 6d 73 7d |ommand &| Params}|
|00000c50| 0d 09 09 09 09 09 09 75 | 50 61 72 61 6d 5b 31 5d |.......u|Param[1]|
|00000c60| 20 3a 3d 20 6d 32 3b 0d | 09 09 09 09 09 09 75 50 | := m2;.|......uP|
|00000c70| 61 72 61 6d 5b 32 5d 20 | 3a 3d 20 6d 33 3b 0d 09 |aram[2] |:= m3;..|
|00000c80| 09 09 09 09 09 75 50 61 | 72 61 6d 5b 33 5d 20 3a |.....uPa|ram[3] :|
|00000c90| 3d 20 6d 34 3b 0d 09 09 | 09 09 09 09 75 50 61 72 |= m4;...|....uPar|
|00000ca0| 61 6d 5b 34 5d 20 3a 3d | 20 6d 35 3b 0d 09 09 09 |am[4] :=| m5;....|
|00000cb0| 09 09 09 4a 75 6d 70 49 | 74 28 74 68 65 50 74 72 |...JumpI|t(thePtr|
|00000cc0| 29 3b 09 09 09 09 7b 6a | 75 6d 70 20 74 6f 20 46 |);....{j|ump to F|
|00000cd0| 43 4d 44 20 6d 6f 64 75 | 6c 65 7d 0d 09 09 09 09 |CMD modu|le}.....|
|00000ce0| 09 65 6e 64 3b 0d 09 09 | 09 65 6e 64 3b 0d 09 65 |.end;...|.end;..e|
|00000cf0| 6e 64 3b 0d 0d 65 6e 64 | 2e 00 00 00 00 00 00 00 |nd;..end|........|
|00000d00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000d10| 29 00 14 66 04 61 00 00 | 84 20 40 20 50 4e 90 4f |)..f.a..|. @ PN.O|
|00000d20| ef 00 0a 4c df 12 00 08 | 29 00 06 00 04 66 14 4a |...L....|)....f.J|
|00000d30| 0c 46 61 63 65 50 72 6f | 63 4d 50 2e 70 37 02 00 |.FacePro|cMP.p7..|
|00000d40| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000d50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 aa 02 9a 67 00 00 | 00 00 00 00 01 7e 0a 4c |.....g..|.....~.L|
|00000d80| df 13 00 b0 7c 00 01 67 | 0e 08 28 00 01 00 06 66 |....|..g|..(....f|
|00000d90| 04 2f 38 08 fc 4e 75 70 | 00 4e 75 28 49 30 2c 00 |./8..Nup|.Nu(I0,.|
|00000da0| 18 46 40 eb 48 00 40 c0 | 00 59 8f 2f 3c 44 52 56 |.F@.H.@.|.Y./<DRV|
|00000db0| 63 3f 00 a9 a0 20 1f 67 | 16 29 40 00 14 20 40 a0 |c?... .g|.)@.. @.|
|00000dc0| 64 20 6c 00 14 a0 29 22 | 4c 20 2c 00 14 4e 75 70 |d l...)"|L ,..Nup|
|00000dd0| 0f a9 c9 00 00 00 15 00 | 2a 00 29 01 05 01 88 00 |........|*.).....|
|00000de0| 01 00 00 00 00 00 00 00 | 00 03 86 00 00 00 00 15 |........|........|
|00000df0| 00 2e 00 38 00 97 01 bf | 00 01 00 00 00 00 00 00 |...8....|........|
|00000e00| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 03 | 00 02 00 2c 00 0f 01 53 |........|...,...S|
|00000e30| 01 78 00 2c 00 0f 01 53 | 01 78 a9 ce e3 a9 00 00 |.x.,...S|.x......|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000e50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 cd fc ec |...L...L|...2....|
|00000e60| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|00000e70| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+